home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Periodicals / develop / develop 4 code / IIgs Printer Driver / PICTER.MACROS < prev    next >
Encoding:
Text File  |  1990-08-20  |  3.5 KB  |  282 lines  |  [TEXT/pdos]
  1.  MACRO
  2. &lab _BlockMove
  3. &lab ldx #$2B02
  4.  jsl $E10000
  5.  MEND
  6.  MACRO
  7. &lab _CheckHandle
  8. &lab ldx #$1E02
  9.  jsl $E10000
  10.  MEND
  11.  MACRO
  12. &lab _DisposeHandle
  13. &lab ldx #$1002
  14.  jsl $E10000
  15.  MEND
  16.  MACRO
  17. &lab _GetHandleSize
  18. &lab ldx #$1802
  19.  jsl $E10000
  20.  MEND
  21.  MACRO
  22. &lab _MMStartUp
  23. &lab ldx #$0202
  24.  jsl $E10000
  25.  MEND
  26.  MACRO
  27. &lab _NewHandle
  28. &lab ldx #$0902
  29.  jsl $E10000
  30.  MEND
  31.  MACRO
  32. &lab _PtrToHand
  33. &lab ldx #$2802
  34.  jsl $E10000
  35.  MEND
  36.  MACRO
  37. &lab _PrDefault
  38. &lab ldx #$0913
  39.  jsl $E10000
  40.  MEND
  41.  MACRO
  42. &lab _PrValidate
  43. &lab ldx #$0A13
  44.  jsl $E10000
  45.  MEND
  46.  MACRO
  47. &lab _ClosePicture
  48. &lab ldx #$B904
  49.  jsl $E10000
  50.  MEND
  51.  MACRO
  52. &lab _KillPicture
  53. &lab ldx #$BB04
  54.  jsl $E10000
  55.  MEND
  56.  MACRO
  57. &lab _OpenPicture
  58. &lab ldx #$B704
  59.  jsl $E10000
  60.  MEND
  61.  MACRO
  62. &lab _WaitCursor
  63. &lab ldx #$0A12
  64.  jsl $E10000
  65.  MEND
  66.  MACRO
  67. &lab _ClosePort
  68. &lab ldx #$1A04
  69.  jsl $E10000
  70.  MEND
  71.  MACRO
  72. &lab _GetCursorAdr
  73. &lab ldx #$8F04
  74.  jsl $E10000
  75.  MEND
  76.  MACRO
  77. &lab _GetMasterSCB
  78. &lab ldx #$1704
  79.  jsl $E10000
  80.  MEND
  81.  MACRO
  82. &lab _GetPort
  83. &lab ldx #$1C04
  84.  jsl $E10000
  85.  MEND
  86.  MACRO
  87. &lab _InitPort
  88. &lab ldx #$1904
  89.  jsl $E10000
  90.  MEND
  91.  MACRO
  92. &lab _NewRgn
  93. &lab ldx #$6704
  94.  jsl $E10000
  95.  MEND
  96.  MACRO
  97. &lab _OpenPort
  98. &lab ldx #$1804
  99.  jsl $E10000
  100.  MEND
  101.  MACRO
  102. &lab _PPToPort
  103. &lab ldx #$D604
  104.  jsl $E10000
  105.  MEND
  106.  MACRO
  107. &lab _RectRgn
  108. &lab ldx #$6C04
  109.  jsl $E10000
  110.  MEND
  111.  MACRO
  112. &lab _SetClip
  113. &lab ldx #$2404
  114.  jsl $E10000
  115.  MEND
  116.  MACRO
  117. &lab _SetCursor
  118. &lab ldx #$8E04
  119.  jsl $E10000
  120.  MEND
  121.  MACRO
  122. &lab _SetPort
  123. &lab ldx #$1B04
  124.  jsl $E10000
  125.  MEND
  126.  MACRO
  127. &lab _SetVisRgn
  128. &lab ldx #$B404
  129.  jsl $E10000
  130.  MEND
  131.  MACRO
  132. &lab pulllong &addr1,&addr2
  133. &lab ANOP
  134.  AIF C:&addr1=0,.a
  135.  AIF C:&addr2=0,.b
  136.  LCLC &C
  137. &C AMID &addr1,1,1
  138.  AIF "&C"="[",.zeropage
  139.  pullword &addr1
  140.  sta &addr2
  141.  pullword &addr1+2
  142.  sta &addr2+2
  143.  MEXIT
  144. .a
  145.  pullword
  146.  pullword
  147.  MEXIT
  148. .b
  149.  pullword &addr1
  150.  pullword &addr1+2
  151.  MEXIT
  152. .zeropage
  153.  ldy #&addr2
  154.  pullword &addr1,y
  155.  ldy #&addr2+2
  156.  pullword &addr1,y
  157.  MEND
  158.  MACRO
  159. &lab pullword &SYSOPR
  160. &lab ANOP
  161.  pla
  162.  AIF C:&SYSOPR=0,.end
  163.  sta &SYSOPR
  164. .end
  165.  MEND
  166.  MACRO
  167. &lab pushlong &addr,&offset
  168. &lab ANOP
  169.  LCLC &C
  170.  LCLC &REST
  171. &C AMID &addr,1,1
  172.  AIF "&C"="#",.immediate
  173.  AIF "&C"="[",.zeropage
  174.  AIF C:&offset=0,.nooffset
  175.  AIF "&offset"="s",.stack
  176.  pushword &addr+2,&offset
  177.  pushword &addr,&offset
  178.  MEXIT
  179. .nooffset
  180.  pushword &addr+2
  181.  pushword &addr
  182.  MEXIT
  183. .immediate
  184. &REST AMID &addr,2,L:&addr-1
  185.  dc I1'$F4',I2'(&REST)|-16'
  186.  dc I1'$F4',I2'&REST'
  187.  MEXIT
  188. .stack
  189.  pushword &addr+2,s
  190.  pushword &addr+2,s
  191.  MEXIT
  192. .zeropage
  193.  ldy #&offset+2
  194.  pushword &addr,y
  195.  ldy #&offset
  196.  pushword &addr,y
  197.  MEND
  198.  MACRO
  199. &lab pushword &SYSOPR
  200. &lab ANOP
  201.  AIF C:&SYSOPR=0,.b
  202.  LCLC &C
  203. &C AMID "&SYSOPR",1,1
  204.  AIF ("&C"="#").AND.(S:LONGA),.immediate
  205.  lda &SYSOPR
  206.  pha
  207.  MEXIT
  208. .b
  209.  pha
  210.  MEXIT
  211. .immediate
  212.  LCLC &REST
  213.  LCLA &BL
  214. &BL ASEARCH "&SYSOPR"," ",1
  215.  AIF &BL>0,.a
  216. &BL SETA L:&SYSOPR+1
  217. .a
  218. &REST AMID "&SYSOPR",2,&BL-2
  219.  dc I1'$F4',I2'&REST'
  220.  MEND
  221.  MACRO
  222. &lab str &string
  223. &lab dc i1'L:&string',C'&string'
  224.  MEND
  225.  MACRO
  226. &lab longm
  227. &lab ANOP
  228.  rep #%00100000
  229.  longa on
  230.  MEND
  231.  MACRO
  232. &lab shortm
  233. &lab ANOP
  234.  sep #%00100000
  235.  longa off
  236.  MEND
  237.  MACRO
  238. &lab _CloseGS ¶ms
  239. &lab jsl $E100A8
  240.  dc i2"$2014"
  241.  dc i4"¶ms"
  242.  MEND
  243.  MACRO
  244. &lab _CreateGS ¶ms
  245. &lab jsl $E100A8
  246.  dc i2"$2001"
  247.  dc i4"¶ms"
  248.  MEND
  249.  MACRO
  250. &lab _GetFileInfoGS ¶ms
  251. &lab jsl $E100A8
  252.  dc i2"$2006"
  253.  dc i4"¶ms"
  254.  MEND
  255.  MACRO
  256. &lab _OpenGS ¶ms
  257. &lab jsl $E100A8
  258.  dc i2"$2010"
  259.  dc i4"¶ms"
  260.  MEND
  261.  MACRO
  262. &lab _WriteGS ¶ms
  263. &lab jsl $E100A8
  264.  dc i2"$2013"
  265.  dc i4"¶ms"
  266.  MEND
  267.  MACRO
  268. &lab _DisposeRgn
  269. &lab ldx #$6804
  270.  jsl $E10000
  271.  MEND
  272.  MACRO
  273. &lab _GetPortLoc
  274. &lab ldx #$1E04
  275.  jsl $E10000
  276.  MEND
  277.  MACRO
  278. &lab _SetPortLoc
  279. &lab ldx #$1D04
  280.  jsl $E10000
  281.  MEND
  282.